module Main (

        main

) where

import System.Environment

import Gml.Token
import Gml.Parse
import Gml.Evaluation

main = do args <- getArgs
          content <- readFile (args !! 0)
          putStrLn (show (evaluate (parseGml content)))